***load data

use "${path}\data\vaccinations\vaccinations_ready.dta", clear

***Online Appendix Tables

cd "${path}\output\tables"

***Table A.I

eststo: estpost corr vaccination_rate3 trump evo_approval_state16 evo_score, matrix
esttab using trump_correlation.tex, nonumber not unstack compress noobs replace fragment nonotes label
eststo clear

***Table A.II

eststo: reg vaccination_rate3 trump, vce(cluster state16)
estadd ysumm
eststo: reg vaccination_rate3 evo_approval_state16, vce(cluster state16)
estadd ysumm
eststo: reg vaccination_rate3 trump evo_approval_state16, vce(cluster state16)
estadd ysumm
eststo: reg vaccination_rate3 evo_score, vce(cluster state16)
estadd ysumm
eststo: reg vaccination_rate3 trump evo_score, vce(cluster state16)
estadd ysumm
eststo: reg vaccination_rate3 trump evo_approval_state16 evo_score, vce(cluster state16)
estadd ysumm
esttab using trump.tex, replace keep(trump evo_approval_state16 evo_score) fragment  b(3) se(3) nomtitles nonotes label ///
stats(r2_a N, labels ("Adj. R-squared" "Observations") fmt(3 %9.0fc)) ///
star(* 0.1 ** 0.05 *** 0.01)  ///
mgroups("Outcome: Vaccination Rates", pattern(1 0 0 0) prefix(\multicolumn{@span} {c} {) suffix (}) span erepeat(\cmidrule(lr) {@span}))
eststo clear
